# 19-704 Applied Data Analysis
# Homework 1
# @author: Emmanuel Owusu

# (1) writing some simple functions

CalculateSimpleSum <- function (a, b) {
	# Compute the sum of parameters a and b 
	# @params 
	#	a - integer 
	#	b - integer value
	# @returns 
	#	r - the sum or parameters a and b
	r <- a + b
	return(r)
}

GetVector <- function () {
	# Construct a vector
	# @returns
	#	r - a vector with five elements
	r <- c(10.4, 5.6, 3.1, 6.4, 21.7)
	return(r)
}


# (2) calling functions and outputting to the console

cat ("Compute sum 2 + 2: \t") 
print (CalculateSimpleSum(2,2))

cat ("Construct a vector: \t")
print (GetVector())




